home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1027 < prev    next >
Text File  |  1996-11-01  |  554b  |  10 lines
  1. /colorimage where{pop/clrimg{colorimage}def}
  2.  {/proc{/i 0 def/j 0 def cmy{prc prm pry prk dup/tmpstr X}
  3.  {prk dup dup length 3 idiv 0 exch getinterval/tmpstr X tmpstr}ifelse
  4.  {cmy{1 index i get 3 index i get add 4 index i get add 3 div
  5.  255 2 index sub 255 div mul add round cvi 255 exch sub 1}
  6.  {pop dup i 3 getinterval{}forall .11 mul exch .59 mul add exch .3 mul
  7.  add round cvi 3}ifelse i add/i X tmpstr j 3 -1 roll put/j j 1 add def}forall
  8.  cmy{p3}{pop}ifelse tmpstr}B
  9.  /clrimg{4 eq/cmy X pop/prk X cmy{/pry X/prm X/prc X}if/proc load image}B}ifelse
  10.